perm filename BLACK[XAP,BGB] blob
sn#056550 filedate 1973-08-02 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE BLACK
C00004 00003 PLACE =100 ROW CONTROL WORDS.
C00005 ENDMK
C⊗;
TITLE BLACK
; XGP TEST B.G.BAUMGART 8/2/73 --------------------------------------
SA: MOVE 44↔CORE↔HALT ;SHRINK.
MOVEI =10000
ADD 44↔CORE↔HALT ;EXPAND.
;MAKE IT BLACK.
SETOM BUFFER↔SETZM BUFFER+1↔MOVEI BUFFER↔TRNN 1↔JRST .+3
SETZM BUFFER↔SETOM BUFFER+1
MOVE[XWD BUFFER,BUFFER+2]↔BLT BUFFER+=48*=36
MOVE[XWD BUFFER,BUFFER+=48*=36+1]↔BLT BUFFER+2*=48*=36
MOVE[XWD BUFFER,BUFFER+2*=48*=36+1]↔BLT BUFFER+=9600
MOVE 0,[POINT 1,BUFFER,17]↔MOVE 1,[POINT 1,BUFFER,18]
MOVE 2,[POINT 1,BUFFER,19]↔MOVE 3,[POINT 1,BUFFER,20]
MOVE 4,[POINT 1,BUFFER,21]↔MOVE 5,[POINT 1,BUFFER,22]
MOVE 6,[POINT 1,BUFFER,23]↔MOVE 7,[POINT 1,BUFFER,24]
SETO↔MOVEI 8,=200
L10: MOVEI 9,8
IDPB 0,0↔IDPB 1,1↔IDPB 2,2↔IDPB 3,3
IDPB 4,4↔IDPB 5,5↔IDPB 6,6↔IDPB 7,7↔JRST L12
L11: DPB 0,0↔DPB 1,1↔DPB 2,2↔DPB 3,3
DPB 4,4↔DPB 5,5↔DPB 6,6↔DPB 7,7
L12: ADDI 0,6↔ADDI 1,6↔ADDI 2,6↔ADDI 3,6
ADDI 4,6↔ADDI 5,6↔ADDI 6,6↔ADDI 7,6
SOJGE 9,L11↔SOJGE 8,L10
;PLACE =100 ROW CONTROL WORDS.
MOVE[1B11+=47]↔MOVEI 1,BUFFER↔HRREI 2,-=200
L0: MOVEM(1)↔ADDI 1,=48↔AOJLE 2,L0
OUTSTR[ASCIZ/
HIT A SPACE TO STOP THE XGP.
/]
;SEND BUFFER TO XGP.
L1: INIT 1,117↔SIXBIT/XGP/↔0
JRST[OUTSTR[ASCIZ/CAN'T INIT XGP./]↔HALT]
LOCK↔OUT 1,DUMP↔OUT 1,DUMP
L2: OUT 1,DUMP↔INCHRS↔SKIPA↔JRST L3
OUTSTR[ASCIZ/ BUFFER TO XGP.
/]↔ JRST L2
;END OF TEST.
L3: OUT 1,CUT↔UNLOCK↔RELEASE 1,
OUTSTR[ASCIZ/
END OF XGP OUTPUT.
/]↔ EXIT
CUT: IOWD =64,CUTBUF↔0
CUTBUF: 1B0+0↔BLOCK =100
DUMP: IOWD =9600,BUFFER ↔ 0
LIT
BUFFER:
END SA